www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/dispuser3.asp
<!--#include file=conn.asp--> <!--#include file=config.asp--> <!--#include file=const.asp--> <!--#include file=char.asp--> <!--#include file=inc/userfun.asp--> <!--#include file=inc/template.asp--> <% '========================================================= ' File: dispuser.asp ' Version:3.0 ' Date: 2005-11-5 ' Script Written by xmrxw '========================================================= ' Copyright (C) 2004,2005 920520.com All rights reserved. ' Web: http://www.920520.com,http://www.xmzxw.com ' Email: info@mssky.com,super@mssky.com ' QQ:10689579 Msn:zdlmicr@hotmail.com '========================================================= dim username dim userclass username=trim(checkStr(request("Username"))) if username="" or strLength(request("Username"))>20 then errmsg=errmsg+"<br>"+"<li>用户名不能为空。" founderr=true end if if Cint(GroupSetting(3))=0 then Errmsg=Errmsg+"<br>"+"<li>您没有浏览会员资料的权限!" response.Write(Errmsg) response.end end if call nav() stats="查询"&username&"个人资料" founderr=false if founderr then call Mslove_error() else if username="" then ErrMsg=Errmsg+"<br>"+"<li>错误的参数。" founderr=true end if dim Stockmoney,bankmoney,userinfo,nophoto dim realname,character,personal,country,province,city,shengxiao,Userstars dim UserIM dim homepage,Oicq,Icq,Msn,Aim,Yahoo,Uc dim Userfriendinfo,Pheight,Pweight,figure,TemplateId dim Ublood,UFolk,Ubelief,Uoccupation,Udutytype,Umarital,Ueducation,Ucollege dim Uuserphone,Uaddress dim Uhealth,Uweight,Ufigure,Umylook,Ufug,Uincome,Ualcohol,Uhouses,Ulanguage dim Uphoto,Uphototitle,Uimages,UWealth,Uvip,Uep,Ucp,Upower,Udiarynum dim Upics,Uhits,ULastlogin,Uclass,Usex,Ubirth,Umail,Ulock,Loginnum dim Sqlt,rst,Show_Template,OnlineTime,Ostat,Userwife nophoto="images/nophoto.gif" set rs=server.createobject("adodb.recordset") sql="select Userphoto,userclass,UserIM,Userheight,TemplateId,UserInfo,Userfriends,Visual,UserFace,userWealth,Uservip,userEP,userCP,userPower,UserPics,Userdiary,UserViews,lastlogin,userclass,Usersex,Userbirthday,UserEmail,LockUser,UserLogins,Userwife from [Ms_User] where username='"&UserName&"'" rs.open sql,conn,1,1 if rs.eof and rs.bof then ErrMsg=Errmsg+"<br>"+"<li>您查询的名字不存在" founderr=true call Mslove_error() response.end end if userclass=rs("userclass") Uphoto=rs("Userphoto") UserIM=rs("UserIM") Pheight=rs("Userheight") 'TemplateId=rs("TemplateId") UserIM=split(UserIM,"|||") homepage=UserIM(0) Oicq=UserIM(1) Icq=UserIM(2) Msn=UserIM(3) Aim=UserIM(4) Yahoo=UserIM(5) Uc=UserIM(6) userinfo=rs("UserInfo") userinfo=split(userinfo,"|||") realname=userinfo(0) character=userinfo(1) personal=userinfo(2) country=userinfo(3) province=userinfo(4) city=userinfo(5) shengxiao=userinfo(6) Userstars=userinfo(7) Ublood=userinfo(8) UFolk=userinfo(9) Ubelief=userinfo(10) Uoccupation=userinfo(11) Udutytype=userinfo(12) Umarital=userinfo(13) Ueducation=userinfo(14) Ucollege=userinfo(15) Uuserphone=userinfo(16) Uaddress=userinfo(17) Userfriendinfo=split(rs("Userfriends"),"|||") Uhealth=Userfriendinfo(0) Uweight=Userfriendinfo(1) Ufigure=Userfriendinfo(2) Umylook=Userfriendinfo(3) Ufug=Userfriendinfo(4) Uincome=Userfriendinfo(5) Ualcohol=Userfriendinfo(6) Uhouses=Userfriendinfo(7) Ulanguage=Userfriendinfo(8) Stockmoney=0 bankmoney=0 'if TemplateId="" then 'TemplateId=1 'end if Uphototitle=rs("Visual") Uimages=rs("UserFace") Uwealth=rs("userWealth") Uvip=rs("Uservip") Uep=rs("userEP") Ucp=rs("userCP") Upower=rs("userPower") Upics=rs("UserPics") Udiarynum=rs("Userdiary") Uhits=rs("UserViews") Ulastlogin=rs("lastlogin") Uclass=rs("userclass") Usex=rs("Usersex") Ubirth=rs("Userbirthday") Umail=rs("UserEmail") Ulock=rs("LockUser") Loginnum=rs("UserLogins") Userwife=rs("Userwife") 'Sqlt="select Template from [Ms_Template] where id="&TemplateId 'set rst=conn.execute(Sqlt) 'if not (rst.eof and rst.bof) then 'Show_Template=rst("Template") 'End If 'rs.close set rs=nothing set rs=conn.execute("select stats,startime from Ms_online where username='"&UserName&"'") if rs.eof and rs.bof then Ostat="" OnlineTime="[离线]" else Ostat="当前位置:["&rs(0)&"]" OnlineTime="[在线:" & datediff("n",rs(1),Now()) & "Mins]" end if rs.close set rs=nothing 'Call Replace_PublicTag(Show_Template) conn.execute("update Ms_user set UserViews=UserViews+1 where Username='"&UserName&"'") if founderr then call Mslove_error() call activeonline() end if %> <table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <tbody> <tr> <td align="middle"><br /> <table cellspacing="0" cellpadding="0" width="711" bgcolor="#d8d8d8" border="0"> <tbody> <tr> <td valign="top" align="middle" bgcolor="#ffffff" height="40"><table cellspacing="5" cellpadding="5" width="100%" border="0"> <tbody> <tr> <td bgcolor="#eaf5fc" height="22"><font color="#000000"><strong>小贴士:</strong></font> <!--<font color="#000000">搜索更多会员的方法</font>--> 网站每次搜索最多只显示200个会员,要看更多,可重点“查找”按钮(结果会随机变化),或将搜索条件细化。</FONT></td> </tr> </tbody> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="750" border="0"> <tbody> <tr> <td valign="top" width="182" height="491"><table cellspacing="1" cellpadding="1" width="100%" bgcolor="#d8d8d8" border="0"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr> <td valign="center" align="middle" colspan="3"><br /> <table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> </tbody> </table> <table height="156" cellspacing="1" cellpadding="1" width="126" bgcolor="#cfcfcf" border="0"> <tbody> <tr> </tr> </tbody> </table> <table cellspacing="5" cellpadding="0" align="center" bgcolor="#dec1fa" border="0"> <tbody> <tr> <td valign="center" align="middle" bgcolor="#ffffff"><a href=photolist.asp?action=userp&username=<%=username%> target=_blank><%if Uphoto<>"" then response.Write("<img src="&Uphoto&" width=""110"" height=""140"" border=""0""></a>") else response.Write("<img src="&nophoto&" width=""110"" height=""140"" border=""0""></a>") end if%></a></td> </tr> </tbody> </table> <table cellspacing="0" cellpadding="0" width="126" border="0"> <tbody> </tbody> </table></td> </tr> <tr> <td> </td> <td valign="top"><div align="center">人气指数:<%=Uhits%></div></td> <td> </td> </tr> <tr> <td width="5%"> </td> <td width="90%" valign="top"><table width="100%" border="0" cellpadding="0"> <tr> <td height="15">金币:<img src="Skins/Default/yuanbao.gif" width="11" height="10" align="absmiddle" /> <%=Uwealth%></td> <td height="15">魅力:<img src="Skins/Default/meili.gif" width="11" height="10" align="absmiddle" /> <%=Ucp%></td> </tr> <tr> <td height="15">经验:<img src="Skins/Default/jingyan.gif" width="11" height="10" align="absmiddle" /> <%=Uep%></td> <td height="15">威望:<img src="Skins/Default/weiwang.gif" width="11" height="10" align="absmiddle" /> <%=Upower%></td> </tr> </table> <br /></td><td width="5%"> </td> </tr> <tr> <td> </td> <td width="90%" valign="top"><table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr valign="top" align="left"> <td colspan="2"><img height="8" src="" width="10" /></td> </tr> <tr class="12x18"> <td align="middle" colspan="2" height="30">在线留言</td> </tr> <tr> <td valign="center" align="middle" colspan="2" height="30">发送短信</td> </tr> <tr> <td valign="center" align="middle" colspan="2" height="30">加为好友</td> </tr> <tr> <td valign="center" align="middle" colspan="2" height="30">加入收藏</td> </tr> <tr> <td valign="top" align="left" colspan="2"><img src="file:///D|/temp/茶壶的个人资料_files/grzl_01.gif" /></td> </tr> <tr align="left"> <td valign="top" colspan="2"><img height="8" src="" width="10" /></td> </tr> <tr> <td valign="center" align="middle"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td valign="center" align="left"><span class="12x20"><a class="small_top" href=photolist.asp?action=userp&username=<%=username%> target="subiframe">个人相册</a>:<%=Upics%>张</span></td> </tr> <tr> <td valign="center" align="middle"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td valign="center" align="left"><span class="12x20"><a class="small_top" href="diarylist.asp?action=name&username=<%=username%>" target="subiframe">心情日记</a>:<%=Udiarynum%>篇</span></td> </tr> <tr> <td valign="center" align="middle"><img height="11" alt="" src="images/grzl_18.gif" width="11" align="absmiddle" /></td> <td valign="center" align="left"><span class="12x20"><a class="small_top" href="http://www.91yuan.com/operate/userview/user_sound_mpg.asp?id_r=1784025&levels=" target="subiframe"><font color="#666666">声音影像</font></a>:0个</span></td> </tr> <tr> <td valign="center" align="middle"><img height="11" alt="" src="images/grzl_18.gif" width="11" align="absmiddle" /></td> <td valign="center" align="left"><span class="12x20"><a class="small_top" href="http://www.91yuan.com/operate/userview/user_article.asp?id_r=1784025&levels=" target="subiframe"><font color="#666666">站内言论</font></a>:0篇</span></td> </tr> </tbody> </table></td> <td> </td> </tr> </tbody> </table> <br /> <br /></td> </tr> </tbody> </table> <span class="12x18"><span class="STYLE3"><br /> </span></span> <table cellspacing="1" cellpadding="1" width="100%" bgcolor="#d8d8d8" border="0"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table cellspacing="0" cellpadding="3" width="100%" border="0"> <tbody> <tr> <td align="middle" colspan="2"> <b>该会员是否真诚交友?</b> </td> </tr> <tr> <td width="50%"> 是:0票</td> <td width="50%">不是:0票<br /></td> </tr> <tr> <td class="12x20" align="middle" colspan="2"><a class="Black_UnderLine" onclick="javascript:window.open('/operate/sincere/index.asp?id_r=1784025&paytype=2','投票','width=300,height=200,top=250,left=300resizable=yes');return false;" href="http://www.91yuan.com/operate/userview/index.asp?id_r=1784025#">我要投票</a> <a class="Black_UnderLine" onclick="javascript:window.open('/operate/sincere/index.asp?id_r=1784025&paytype=2','投票','width=300,height=200,top=250,left=300resizable=yes');return false;" href="http://www.91yuan.com/operate/userview/index.asp?id_r=1784025#">投票说明</a> </td> </tr> </tbody> </table></td> </tr> </tbody> </table> <br /> <br /> <table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr> <td><a href="http://www.91yuan.com/shop/index.asp?link=Main.asp?re_id=1784025" target="_blank"></a></td> </tr> </tbody> </table> <br /> <br /> <table cellspacing="0" cellpadding="0" width="100%" bgcolor="#d8d8d8" border="0"> <tbody> <tr> <td valign="top" align="middle" bgcolor="#ffffff" height="40"><a class="orange_UnderLine" href="http://www.91yuan.com/help/beginner/Safe.htm" target="_blank"></a> </td> </tr> </tbody> </table></td> <td width="10"><br /></td> <td valign="top" width="564"><table cellspacing="0" cellpadding="0" width="100%" border="0"> <td width="62%" height="30" valign="center" bgcolor="#eaf5fc"><%if Usex=1 then response.Write("<img src=skins/21cn/boy.gif width=15 align=absMiddle border=0>") else response.write("<img src=skins/21cn/girl.gif width=15 align=absMiddle border=0>") end if%> <%=username%></td> <td width="38%" valign="center" bgcolor="#eaf5fc">最近登陆:<% if datediff("h",Ulastlogin,Now())>24 then response.Write("超过24H未登录") else if 12<datediff("h",Ulastlogin,Now())<24 then response.Write("今天登录过") else if datediff("h",Ulastlogin,Now())<12 then response.Write("12H前登录过") end if %></td> </tr> </table> <table cellspacing="10" cellpadding="0" width="100%" border="0"> <tbody> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8"> <tbody> <tr> <td width="5%" valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="0"> <tr> <td width="4%"> </td> <td width="96%"><table width="100%" border="0" cellspacing="5"> <tr> <td width="16%"><font color="#444444">当前状态:</font></td> <td width="35%"><%=OnlineTime%></td> <td width="17%"><font color="#444444">会员等级:</font></td> <td width="32%"><%=iifV(Uvip)%></td> </tr> <tr> <td><font color="#444444">性 别:</font></td> <td><%=iif(Usex,"男","女")%> </td> <td><font color="#444444">年 龄:</font></td> <td><%if Ubirth<>"" then response.Write(datediff("yyyy",Ubirth,Now())&"岁") else response.Write("未知") end if%></td> </tr> <tr> <td><font color="#444444">身 高:</font></td> <td><%=iimg(Pheight,"-",htmlencode(Pheight))%>CM</td> <td><font color="#444444">学 历:</font></td> <td><%=iimg(Ueducation,"未填",htmlencode(Ueducation))%></td> </tr> <tr> <td><font color="#444444">职 业:</font></td> <td><%=iimg(Uoccupation,"未填",htmlencode(Uoccupation))%></td> <td><font color="#444444">职称:</font></td> <td><%=iimg(Udutytype,"未填",htmlencode(Udutytype))%></td> </tr> <tr> <td><font color="#444444">所在地区:</font></td> <td><%=iimg(province,"未填",htmlencode(province))%><%=iimg(city,"未填",htmlencode(city))%></td> <td><font color="#444444">户口地区:</font></td> <td><%=iimg(province,"未填",htmlencode(province))%><%=iimg(city,"未填",htmlencode(city))%></td> </tr> <tr> <td><font color="#444444">居住情况:</font></td> <td><%=iimg(Uhouses,"未填",htmlencode(Uhouses))%></td> <td><font color="#444444">购车情况:</font></td> <td><%= %></td> </tr> <tr> <td><font color="#444444">收入情况:</font></td> <td><%=iimg(Uincome,"未填",htmlencode(Uincome))%>元/月</td> <td><font color="#444444">婚姻状况:</font></td> <td><%=iimg(Umarital,"未填",htmlencode(Umarital)) %></td> </tr> <tr> <td><font color="#444444">健康程度:</font></td> <td><%=iimg(Uhealth,"未填",htmlencode(Uhealth))%></td> <td><font color="#444444">相貌自评:</font></td> <td><%=iimg(Umylook,"未填",htmlencode(Umylook))%>分</td> </tr> <tr> <td><font color="#444444">生肖:</font></td> <td><%=iimg(shengxiao,"未填",htmlencode(shengxiao))%></td> <td><font color="#444444">血型:</font></td> <td><%=iimg(Ublood,"未填",htmlencode(Ublood))%>型</td> </tr> <tr> <td><font color="#444444">民族:</font></td> <td><%=iimg(UFolk,"未填",htmlencode(UFolk))%></td> <td><font color="#444444">信仰:</font></td> <td><%=iimg(Ubelief,"未填",htmlencode(Ubelief))%></td> </tr> <tr> <td><font color="#444444">体重:</font></td> <td><%=iimg(Uweight,"未填",htmlencode(Uweight))%>KG</td> <td><font color="#444444">体形:</font></td> <td><%=iimg(Ufigure,"未填",htmlencode(Ufigure)) %></td> </tr> <tr> <td><font color="#444444">是否吸烟:</font></td> <td><%=iimg(Ufug,"未填",htmlencode(Ufug))%></td> <td><font color="#444444">是否喝酒:</font></td> <td><%=iimg(Ualcohol,"未填",htmlencode(Ualcohol))%></td> </tr> <tr> <td><font color="#444444">掌握语言:</font></td> <td><%=iimg(Ulanguage,"未填",htmlencode(Ulanguage))%></td> <td><font color="#444444">星座:</font></td> <td><%=iimg(Ubirth,"未填",astro(Ubirth))%></td> </tr> <tr> <td><font color="#444444">国家:</font></td> <td><%=iimg(country,"未填",htmlencode(country))%></td> <td> </td> <td> </td> </tr> <tr> <td><font color="#444444">性格特征:</font></td> <td colspan="3"><%=iimg(character,"未填",htmlencode(character))%></td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> </table></td> </tr> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5"> <tr> <td width="4%"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td width="96%"><strong>内心独白</strong></td> </tr> <tr> <td colspan="2"> <%=left(personal,100)%></td> </tr> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5"> <tr> <td width="4%"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td width="96%"><strong>心中的TA</strong></td> </tr> <tr> <td colspan="2"> </td> </tr> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5"> <tr> <td width="4%"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td width="96%"><strong>联系方式</strong></td> </tr> <tr> <td colspan="2"> </td> </tr> </table></td> </tr> </tbody> </table></td> </tr> </tbody> </table></td> </tr> </tbody> </table> <br /></td> </tr> </tbody> </table> <%call footer()%>